home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Entertainment / Chance / HyperCraps 1.02 / card_4865.txt < prev    next >
Encoding:
Text File  |  1988-04-23  |  1.5 KB  |  71 lines
  1. -- card: 4865 from stack: in.02
  2. -- bmap block id: 3538
  3. -- flags: 4000
  4. -- background id: 2725
  5. -- name: craps game
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global bankroll,comingout,bettotal
  9.   put "$" & 0 into word 1 of field "bankroll amount"
  10.   put 0 into bankroll
  11.   put "true" into comingout
  12.   delete line 1 to 10 of field "bet info"
  13.  
  14.   put 0 into bettotal
  15.   put bettotal into field "bet total"
  16.   put " " into field "dice"
  17.   hide bkgnd button "point4"
  18.   hide bkgnd button "point5"
  19.   hide bkgnd button "point6"
  20.   hide bkgnd button "point8"
  21.   hide bkgnd button "point9"
  22.   hide bkgnd button "point10"
  23. end opencard
  24.  
  25.  
  26.  
  27. -- part 16 (button)
  28. -- low flags: 00
  29. -- high flags: A000
  30. -- rect: left=16 top=271 right=328 bottom=73
  31. -- title width / last selected line: 65535
  32. -- icon id / first selected line: -15643 / 49893
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Quit Craps
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   answer "What is Your Fancy?" with "Quit" or "New game"or "Cancel"
  42.   if it="Quit" then
  43.     visual effect dissolve
  44.     go home
  45.   end if
  46.   if it = "New Game" then send "opencard" to card "craps game"
  47.  
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part contents for background part 3
  53. ----- text -----
  54. 7
  55.  
  56. -- part contents for background part 4
  57. ----- text -----
  58. 21
  59.  
  60. -- part contents for background part 6
  61. ----- text -----
  62.  Betting Info
  63.  
  64. -- part contents for background part 27
  65. ----- text -----
  66. $129
  67.  
  68. -- part contents for background part 5
  69. ----- text -----
  70. $0 on Pass Line
  71. $0 on Don't Pass